home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / comm / irc / GetMODinfo.lha / GetMODinfo.AMIRX next >
Text File  |  1999-02-16  |  653b  |  24 lines
  1. /*         AmIRC GetMODinfo by CoBaLt60.          */
  2. /*     Cosmetic changes and docs by Firebird^     */
  3. /*   Get info from DelitrackerII or HippoPlayer   */
  4. /* This script goes in your AmIRC/REXX directory. */
  5.  
  6. parse arg localonly   /* ANY argument given will make the script echo locally, not to the channel */
  7. options results
  8. tmp='t:.getmodinfo.amirx'
  9.  
  10. address command rx' >'tmp modinfo.rexx localonly
  11.  
  12. call open(f1,tmp,r)
  13. do until eof(f1)
  14.    text=readln(f1)
  15.    if text~='' then do
  16.       if localonly='' then 'say /me is playing 'text
  17.       else 'echo P='d2c(27)'b«ModInfo» 'text
  18.    end
  19. end
  20. call close(f1)
  21. address command 'delete 'tmp' quiet'
  22.  
  23. exit
  24.